perm filename TTIME.LAP[MAC,LSP]1 blob sn#583853 filedate 1981-04-30 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 Return the total wholine time
C00003 ENDMK
CāŠ—;
;;; Return the total wholine time

(lap ttime subr)
(args ttime (nil . 0))
(defsym ttime #o214)	;where wholine time is

	(calli t 30)	;gets jobnum in tt
	(movei tt ttime)
	(calli tt 33)	;get that table
	(add tt t)	;add jobnum
	(calli tt 33)	
	(jrst 0 fix1)	;return fixnum
()